(command-line): Use `get-load-suffixes' instead of `load-suffixes'.

diff --git a/lisp/startup.el b/lisp/startup.el
index 28a501e68a954ee2b21af6f343c1cc47288a5f93..2245cb92535624b0e79ce1741fc825a790b8988b 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -646,7 +646,7 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
   (let ((lisp-dir
         (file-name-directory
          (locate-file "simple" load-path
-                      load-suffixes))))
+                      (get-load-suffixes)))))
 
     (setq load-history
          (mapcar (lambda (elt)